home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d4 / iq.arc / ANALOGY1.BAS (.txt) next >
Encoding:
GW-BASIC  |  1986-11-13  |  4.3 KB  |  121 lines
  1. 10  KEY OFF:KEY(10) ON:ON KEY(10) GOSUB 830:KEY(9) ON:ON KEY(9) GOSUB 650:DIM A(30):FOR I=1 TO 30:A(I)=I:NEXT I:COLOR 3,0,8
  2. 20  CLS:R=0:N=0:GOSUB 1190:FOR I=1 TO 100:SWAP A(INT(RND*30+1)),A(INT(RND*30+1)):NEXT I:GOTO 260
  3. 30  PRINT"part to whole":RETURN
  4. 40  PRINT"type to one of its characteristics":RETURN
  5. 50  PRINT"things that are part of the same thing":RETURN
  6. 60  PRINT"measurement to what is measured":RETURN
  7. 70  PRINT"measurement to object measured":RETURN
  8. 80  PRINT"class to species":RETURN
  9. 90  PRINT"group to member":RETURN
  10. 100  PRINT"members of the same class":RETURN
  11. 110  PRINT"things with a feature in common":RETURN
  12. 120  PRINT"equivalent measures":RETURN
  13. 130  PRINT"parts of a hierarchy":RETURN
  14. 140  PRINT"cause and effect":RETURN
  15. 150  PRINT"things to what they do":RETURN
  16. 160  PRINT"tools to what they work on":RETURN
  17. 170  PRINT"tools to what they create":RETURN
  18. 180  PRINT"condition to what happens in that condition":RETURN
  19. 190  PRINT"worker to object created":RETURN
  20. 200  PRINT"worker to tool":RETURN
  21. 210  PRINT"person to his goal":RETURN
  22. 220  PRINT"person to something he avoids":RETURN
  23. 230  PRINT"synonyms and antonyms":RETURN
  24. 240  PRINT"things that go together":RETURN
  25. 250  PRINT"thing dependent on another":RETURN
  26. 260  CLS:LOCATE 1,34:COLOR 0,7:PRINT"IQ Builder ":COLOR 11,0
  27. 270  LOCATE 2,34:PRINT"Analogies 1 ":COLOR 0,11
  28. 280  LOCATE 4,21:PRINT CHR$(201);
  29. 290  FOR J=1 TO 35
  30. 300    PRINT CHR$(205);
  31. 310    IF J > 35 GOTO 330
  32. 320    NEXT J
  33. 330  PRINT CHR$(187)
  34. 340  LOCATE 5,21:PRINT CHR$(186);:PRINT"Press <F9> to skip to next section.";
  35. 350  PRINT CHR$(186)
  36. 360  LOCATE 6,21:PRINT CHR$(186);:PRINT"Press <F10> to return to main menu.";
  37. 370  PRINT CHR$(186)
  38. 380  LOCATE 7,21:PRINT CHR$(200);
  39. 390  FOR J=1 TO 35
  40. 400    PRINT CHR$(205);
  41. 410    IF J > 35 GOTO 430
  42. 420    NEXT J
  43. 430  PRINT CHR$(188):COLOR 7,0
  44. 440  XX=1:C=A(XX):R=0:N=0
  45. 450  RESTORE:IF C>1 THEN FOR L=1 TO C-1:READ A$,B$:FOR X=1 TO 6:READ A1(X):NEXT X,L
  46. 460  GOSUB 1150
  47. 470  READ A$,B$
  48. 480  PRINT:COLOR 0,3:PRINT"Problem" C
  49. 490  PRINT:PRINT"This is what kind of analogy?":PRINT
  50. 500  AL=LEN(A$):BL=LEN(B$):COLOR 11,0
  51. 510  PRINT "VARPTR" STRING$(AL,"SOUND") "COLOR       " "VARPTR" STRING$(BL,"SOUND") "COLOR"
  52. 520  PRINT "CALL" A$ "CALL";:COLOR 0,11:PRINT" is to ";:COLOR 11,0:PRINT "CALL" B$ "CALL"
  53. 530  PRINT "CLS" STRING$(AL,"SOUND") "'       " "CLS" STRING$(BL,"SOUND") "'":PRINT
  54. 540  FOR X=1 TO 5:COLOR 3,8:PRINT"(";:COLOR 11,0:PRINT X;:COLOR 3,8:PRINT")  ";:READ A1(X):
  55. 550  ON A1(X) GOSUB 30,40,50,60,70,80,90,100,110,120,130,140,150,160,170,180,190,200,210,220,230,240,250:NEXT X
  56. 560  READ K
  57. 570  LOCATE 25,1:PRINT"Your choice is - ";
  58. 580  GOSUB 1200
  59. 590  IF INSTR("12345",IKEY$)=0 THEN 580
  60. 600  N=N+1:IF VAL(IKEY$)=K THEN 610 ELSE 620
  61. 610  LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:PRINT"Correct!";:TIMEOUT=3:GOSUB 1160:LOCATE 25,1:PRINT SPC(79);:R=R+1:GOTO 630
  62. 620  PLAY "mfn28n21t33":LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:COLOR 11,12:PRINT"No!  The answer was " K ".";:COLOR 7,0:TIMEOUT=3:GOSUB 1160:LOCATE 25,1:PRINT SPC(79);
  63. 630  XX=XX+1
  64. 640  IF XX<30 THEN C=A(XX):GOTO 450
  65. 650  COLOR 11,4:LOCATE 1,1:PRINT SPC(33):LOCATE 1,45:PRINT SPC(35)
  66. 660  LOCATE 2,1:PRINT SPC(33):LOCATE 2,45:PRINT SPC(35)
  67. 670  LOCATE 3,1:PRINT SPC(79)
  68. 680  LOCATE 4,1:PRINT SPC(20):LOCATE 4,58:PRINT SPC(22)
  69. 690  LOCATE 5,1:PRINT SPC(20):LOCATE 5,58:PRINT SPC(22)
  70. 700  LOCATE 6,1:PRINT SPC(20):LOCATE 6,58:PRINT SPC(22)
  71. 710  LOCATE 7,1:PRINT SPC(20):LOCATE 7,58:PRINT SPC(22)
  72. 720  COLOR 11,4:GOSUB 1150:COLOR 3,0:LOCATE 15,17
  73. 730  IF N<3 THEN COLOR 11,0:PRINT"You didn't give me much of a chance, did you?":GOTO 800
  74. 740  PRINT"You scored" R "right out of" N "or" INT(100*R/N) "percent."
  75. 750  IF R/N<0.6 THEN LOCATE 18,21:PRINT"I'll bet you do better next time.":TIMEOUT=7:GOSUB 1160:RUN
  76. 760  LOCATE 18,34:IF R/N<=0.8 THEN PRINT"Good score!":GOTO 800
  77. 770  IF R/N<=0.9 THEN PRINT"Very good!":GOTO 800
  78. 780  IF R/N<=0.99 THEN PRINT"Excellent!":GOTO 800
  79. 790  COLOR 19,0:PRINT"Brilliant!"
  80. 800  COLOR 3,0:LOCATE 25,1:PRINT "Press space bar to continue.";
  81. 810  IN$=INKEY$:IF IN$="" THEN 810 ELSE 840
  82. 820  TIMEOUT=4:GOSUB 1160:GOTO 840
  83. 830  SYSTEM
  84. 840  RUN "analogy2
  85. 850  DATA argument, fight,13,11,14,19,16,5
  86. 860  DATA bread, butter,23,21,22,13,9,3
  87. 870  DATA bricklayer, wall,8,9,10,14,17,5
  88. 880  DATA captain, sergeant,9,11,7,16,12,2
  89. 890  DATA careless, accident,12,13,8,20,8,1
  90. 900  DATA cement mixer, cement,1,7,6,10,14,5
  91. 910  DATA chef, egg beater,19,20,21,1,18,5
  92. 920  DATA cherry, crust,23,1,9,8,2,3
  93. 930  DATA child, dark,20,19,13,12,3,1
  94. 940  DATA coal, black,3,9,2,16,23,3
  95. 950  DATA cup, saucer,21,23,22,5,1,3
  96. 960  DATA dig, hole,17,13,10,21,12,5
  97. 970  DATA dog, cat,2,3,6,8,11,4
  98. 980  DATA eraser, lead,8,7,6,13,3,5
  99. 990  DATA fast, slow,19,22,7,21,2,4
  100. 1000  DATA five, ten,9,6,5,4,21,1
  101. 1010  DATA fly, fly,13,23,22,12,16,1
  102. 1020  DATA gram, ounce,16,23,10,11,13,3
  103. 1030  DATA linebacker, interception,20,12,16,17,19,5
  104. 1040  DATA mouth, head,2,8,9,1,7,4
  105. 1050  DATA pack, wolf,7,10,12,16,23,1
  106. 1060  DATA pen, ink,23,21,15,12,9,1
  107. 1070  DATA pint, milk,5,13,11,8,3,1
  108. 1080  DATA run, flow,13,21,1,3,20,2
  109. 1090  DATA scissors, paper,16,14,15,12,5,2
  110. 1100  DATA sedated, sleep,21,12,19,23,1,2
  111. 1110  DATA thunder, rain,20,16,10,11,6,2
  112. 1120  DATA vertical, horizontal,4,5,8,22,23,3
  113. 1130  DATA vocal cords, talk,19,21,10,8,13,5
  114. 1140  DATA year, time,1,4,3,6,2,2
  115. 1150  FOR Y=8 TO 24:LOCATE Y,1:PRINT SPC(79);:NEXT Y:LOCATE 8,1:RETURN
  116. 1160  TIMEOUT$=TIME$:TIME2=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  117. 1170  TIMEOUT$=TIME$:TIME3=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  118. 1180  IF TIMEOUT > TIME3 - TIME2 THEN 1170 ELSE RETURN
  119. 1190  RNDTIME$=TIME$:RNDVAL=VAL(LEFT$(RNDTIME$,2))*120+VAL(MID$(RNDTIME$,4,2))*60+VAL(RIGHT$(RNDTIME$,2)):RANDOMIZE RNDVAL:RETURN
  120. 1200  IKEY$=INKEY$:IF IKEY$="" THEN 1200 ELSE RETURN
  121.